home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.2 / Video Toaster v4.2.iso / programs / screamernet < prev    next >
Text File  |  1995-12-13  |  2KB  |  86 lines
  1. /* ScreamerNet.rexx V1.5 -- Interface glue for screamernet module      */
  2. /* By Bob Caron (Grue) © 1995 NewTek Inc.                              */
  3.  
  4. say "ScreamerNet II Launcher V1.5"
  5. say
  6.  
  7. if ~exists('toaster:programs/lwsn.fp') then do
  8.   say "I can't find the program 'lwsn.fp' (needed for this software to run)."
  9.   say
  10.   say "Some possible reasons for this failure:"
  11.   say
  12.   say "1) The ScreamerNet Icon was not run from the NewTek/Programs directory."
  13.   say "2) The software was not installed properly."
  14.   say "   (You may need to re-install the software)"
  15.   call quit
  16.   end
  17.  
  18. filnam = 'Toaster:Programs/LightWave_Support/SnetLauncher-config'
  19. filnam2 = 'oldtoaster:Programs/LightWave_Support/SnetLauncher-config'
  20. version = 'SnetLauncher v1.5'
  21.  
  22. if (exists(filnam)) then do
  23.     if (~open(state, filnam, 'R')) then break
  24.     if (readln(state) ~= version) then break
  25.     job=readln(state)
  26.     end
  27.     call close state
  28.  
  29. if job="JOB" | job="" then job=1
  30.  
  31. if exists("toaster:") then do
  32.    address command "c:assign oldtoaster: toaster:"
  33.    address command "c:assign oldhiip: hiip:"
  34.    address command "c:cd /"
  35.    address command 'c:assign toaster: "/" '
  36.    address command "c:assign hiip: toaster:programs/hiip_support"
  37.    end
  38.  
  39. commandd="toaster:Programs/Command/"
  40.  
  41. done=0
  42. do while done=0
  43.    say
  44.    say "Current job number: "||job
  45.    say "Enter new job number or hit <Return> to keep current setting:"
  46.    pull newjob
  47.    if newjob="" then break
  48.    if (newjob<0 | newjob>999) then say "The job must be between 1 and 999."
  49.    else
  50.     do
  51.       job=newjob
  52.       say
  53.       say "Job number now set to: "||job
  54.       done=1
  55.       end
  56.    end
  57.    job=job+0
  58.  
  59. if (open(state, filnam2, 'W')) then do
  60.     call writeln state, version
  61.     call writeln state, job
  62.     call close state
  63.     end
  64.  
  65. say
  66.  
  67. say "Hit Control-C to quit."
  68.  
  69. say
  70.  
  71. sncommand="toaster:programs/lwsn.fp -2 "||commandd||"job"||job||" "||commandd||"ack"||job
  72.  
  73. address command sncommand
  74.  
  75. address command "c:assign toaster: oldtoaster:"
  76. address command "c:assign hiip: oldhiip:"
  77.  
  78. exit
  79.  
  80. quit:
  81.  
  82.    say
  83.    say "Press <RETURN> to exit."
  84.    pull input
  85.    exit
  86.